(vc-comment-to-change-log): Merged in the remainder of jimb's last

change.

diff --git a/lisp/vc.el b/lisp/vc.el
index 015dfff1bad97616a3ed53fa9347d26338d7153b..d720d961a5d71c62341c7a74bff0a11a3408a432 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -532,8 +532,11 @@ popped up to accept a comment."
 
 ;;; Here is a checkin hook that may prove useful to sites using the
 ;;; ChangeLog facility supported by Emacs.
-(defun vc-comment-to-change-log ()
-  (let ((log (find-change-log)))
+(defun vc-comment-to-change-log (&optional file)
+   "Update change log from comments entered into VC for the current file.
+Optional FILE specifies the change log file name; see `find-change-log'.
+See `vc-update-change-log'."
+  (let ((log (find-change-log file)))
     (if log
        (let ((default-directory (or (file-name-directory log)
                                     default-directory)))